home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 February / 1985-02.d64 / baker's dozen 4 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  568b  |  18 lines
  1. 10 poke53280,0:poke53281,0:printchr$(147)chr$(5):poke650,128
  2. 20 s=54272
  3. 30 forl=0to24:pokes+l,0:next
  4. 40 poke54277,108:poke54278,96:rem adsr
  5. 50 poke54295,1:rem resonant filter
  6. 60 poke54296,31:rem high-pass is 79,     bandpass is 45, low-pass is 31
  7. 70 fort=1to9:print:next:printtab(12)"turn up volume.
  8. 75 [153]:[153][163]6):[133]"how fast (0=fast 500=slow)";d
  9. 80 [153]:[153][163]7)"hold any key to hear tuba."
  10. 90 [135]x,y:[139]x[178][171]1[167][128]
  11. 100 [151]54273,x:[151]54272,y:[143] freq
  12. 110 [161]a$:[139]a$[178]""[167]110
  13. 120 [151]54276,33:[143] turns note on
  14. 130 [129]t[178]255[164]1[169][171]10:[151]54294,t:[130]:[129]t[178]1[164]d:[130]:[151]54276,32
  15. 140 [143] try also 1 to 255 step 5
  16. 150 [137]90
  17. 160 [131]5,185,5,103,4,208,4,73,3,210,3,155,3,54,2,220,-1,-1
  18.